home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0574.ZIP / PUTS.ASM < prev    next >
Assembly Source File  |  1986-11-20  |  389b  |  25 lines
  1. include compiler.inc
  2.  
  3.     ttl    PUTS, 1.05, 11-03-86 jwk
  4.  
  5.  
  6. ;put string to stdout followed by \n
  7.  
  8.     dseg
  9.     extrn    _ftb:byte
  10.     cseg
  11.  
  12.     xtfs    <fputs, putc>
  13.  
  14.     procdef    puts, <<bfr, ptr>>
  15.     pushreg
  16.     pushds
  17.     lea    si,_ftb        ;stdout stream
  18.     add    si, 5
  19.     callit    fputs <<si, preg, ds>, <bfr, ptr>>
  20.     mov    ax, 10        ;send newline
  21.     callit    putc, <<si, preg, ds>, <ax, reg>>
  22.     pret
  23.     pend    puts
  24.     finish
  25.